home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / graphics / ascdraw.lzh / ASCDRAW / UTILS / PUT_FONT.LST < prev    next >
File List  |  1993-12-18  |  588b  |  28 lines
  1. ' 176-233: ansicharacters
  2. DEFWRD "a-z"
  3. FILESELECT "*.fnt","",font$
  4. DIM font|(4096)
  5. IF EXIST(font$)
  6.   OPEN "i",#1,font$
  7.   SELECT LOF(#1)
  8.   CASE 2048
  9.     font=7              !medrez
  10.   CASE 4096
  11.     font=15             !hirez
  12.   ENDSELECT
  13.   CLOSE #1
  14.   IF font
  15.     BLOAD font$,V:font|(0)
  16.     screen%=XBIOS(3)
  17.     FOR t=0 TO 15
  18.       FOR r=0 TO font
  19.         BMOVE V:font|(0)+t*16+r*256,screen%+offset,16
  20.         ADD offset,80
  21.       NEXT r
  22.     NEXT t
  23.     WORD{screen%-34}=2                  !hope, it's free...
  24.     BSAVE "font.pi3",screen%-34,32034
  25.   ENDIF
  26. ENDIF
  27. EDIT
  28.